-- *****************************************************************************
-- *                                                    *     _       _        *
-- *  AdaDecoupe                                        *    / \   __| | __ _  *
-- *  http://code.google.com/p/adadecoupe/              *   / _ \ / _` |/ _` | *
-- *  Radim Badsi & Célia Biguzzi - IG3                 *  / ___ \ (_| | (_| | *
-- *  Polytech'Montpellier                              * /_/   \_\__,_|\__,_| *
-- *                                                    *                      *
-- *****************************************************************************
-- *                                                                           *
-- * decoupe.adb  -  Decoupe                                                   *
-- * Procedure principale. Affiche un menu à l'écran                           *
-- *                                                                           *
-- *****************************************************************************

with Menu;
with Actions;

-- Programme principal (procedure de test)
procedure Decoupe is 
    Menu_Principal : Menu.T_Menu;
begin
    -- Charger automatiquement les commandes en attente
	Actions.Charger_Env;
	Actions.Charger_Commandes_Attente;
	Actions.Planifier_Commandes;
	
    Menu_Principal := Menu.New_Menu (Title => "AdaDecoupe");

    Menu.New_Item(Menu_Principal, 'J', "Charger les commandes du jour", Actions.Charger_Commandes'Access);    
    Menu.New_Item(Menu_Principal, 'P', "Afficher le stock", Actions.Afficher_Liste_Plaques'Access);
    Menu.New_Item(Menu_Principal, 'C', "Afficher les commandes", Actions.Afficher_Liste_Commandes'Access);
    Menu.New_Item(Menu_Principal, 'X', "Planifier les decoupes", Actions.Planifier'Access);
    Menu.New_Item(Menu_Principal, 'M', "Modifier une commande", Actions.Modifier_Commande'Access);
    Menu.New_Item(Menu_Principal, 'A', "Annuler une commande", Actions.Annuler_Commande'Access);
    Menu.New_Item(Menu_Principal, 'S', "Enregistrer tout", Actions.Sauver_Tout'Access);
    Menu.New_Item(Menu_Principal, 'Q', "Quitter", null);
    Menu.Show(Menu_Principal);
end Decoupe;
